home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / pw_10a.zip / PPEWHO.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-06-22  |  2KB  |  157 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Running program [" + PPEName() + ".PPE]", ""
  29.     Log "Transfer Summary Scanner (" + PPEName() + ".PPE) " + "at (" + Left(Time(), 5) + ")", 0
  30.     GetToken STRING003
  31.     If (STRING003 == "") Then
  32.         Newline
  33.         PrintLn "This program will scan the system download/upload log file and list all entries"
  34.         PrintLn "that mention a specific keyword.  You may select any full filename for scanning"
  35.         PrintLn "or the search is done based on matching keywords (like the Zippy scan function)"
  36.         PrintLn 
  37.         PrintLn "These searches can take a few minutes to complete, so please be patient!"
  38.         InputStr "Enter the Text to Search for (@X0FEnter@X0E)=none", STRING002, 14, 36, Mask_Ascii(), 2 + 4 + 8 + 128 + 256
  39.         STRING002 = Upper(STRING002)
  40.         If (STRING002 == "") Stop
  41.     Else
  42.         STRING002 = Upper(STRING003)
  43.     Endif
  44.     If (Exist(ReadLine(PCBDat(), 46))) Then
  45.         Log "Searching for (" + STRING002 + ") ...", 0
  46.         Newline
  47.         PrintLn "@X0ESearching for (@X0F" + STRING002 + "@X0E) ..."
  48.         Newline
  49.         Print "@X0ARemember you may cancel the search at anytime by pressing @X0FCTRL-K @X0A... "
  50.         FOpen 1, ReadLine(PCBDat(), 46), 0, 0
  51.         :LABEL001
  52.         If (Ferr(1)) Goto LABEL002
  53.         FGet 1, STRING001
  54.         If (STRING001 <> "") Then
  55.             INTEGER002 = INTEGER002 + 1
  56.             STRING001 = Upper(STRING001)
  57.             If (InStr(STRING001, STRING002)) Then
  58.                 INTEGER003 = INTEGER003 + 1
  59.                 INTEGER001 = InStr(STRING001, STRING002)
  60.                 If (INTEGER003 == 1) Newlines 2
  61.                 Print "@X0F" + Left(STRING001, INTEGER001 - 1) + "@X74" + STRING002 + "@X0F"
  62.                 PrintLn Mid(STRING001, INTEGER001 + Len(STRING002), Len(STRING001) - INTEGER001 - Len(STRING002))
  63.             Endif
  64.         Endif
  65.         If (Abort()) FClose 1
  66.         Goto LABEL001
  67.         :LABEL002
  68.         FClose 1
  69.     Else
  70.         Newline
  71.         Log Upper(ReadLine(PCBDat(), 46)) + ") is missing!", 0
  72.         Print "@X0C(" + Upper(ReadLine(PCBDat(), 46)) + ") is missing!"
  73.     Endif
  74.     ResetDisp
  75.     Newline
  76.     If (INTEGER003 == 0) Newline
  77.     PrintLn "@X0E" + String(INTEGER002) + " entries scanned, " + String(INTEGER003) + " matches."
  78.     Newline
  79.     Wait
  80.     End
  81.  
  82. ;------------------------------------------------------------------------------
  83. ;
  84. ; Usage report (before postprocessing)
  85. ;
  86. ; ■ Statements used :
  87. ;
  88. ;    1       End
  89. ;    1       Wait
  90. ;    8       Goto 
  91. ;    6       Let 
  92. ;    3       Print 
  93. ;    8       PrintLn 
  94. ;    9       If 
  95. ;    1       FOpen 
  96. ;    2       FClose 
  97. ;    1       FGet 
  98. ;    1       ResetDisp
  99. ;    3       Log 
  100. ;    1       InputStr 
  101. ;    7       Newline
  102. ;    1       Newlines 
  103. ;    1       GetToken 
  104. ;    1       Stop
  105. ;    1       WrUNet 
  106. ;
  107. ;
  108. ; ■ Functions used :
  109. ;
  110. ;    29      +
  111. ;    3       -
  112. ;    4       ==
  113. ;    1       <>
  114. ;    5       !
  115. ;    3       Len(
  116. ;    5       Upper()
  117. ;    1       Mid()
  118. ;    2       Left()
  119. ;    1       Ferr()
  120. ;    2       InStr()
  121. ;    1       Abort()
  122. ;    1       Time()
  123. ;    2       String()
  124. ;    1       Mask_Ascii()
  125. ;    4       PCBDat()
  126. ;    1       PcbNode()
  127. ;    4       ReadLine()
  128. ;    1       UN_Stat()
  129. ;    1       UN_Name()
  130. ;    1       UN_City()
  131. ;    1       Exist()
  132. ;    2       PPEName()
  133. ;
  134. ;------------------------------------------------------------------------------
  135. ;
  136. ; Analysis flags : d
  137. ;
  138. ; d - Access PCBOARD.DAT ■ 2
  139. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  140. ;     for many PPE so they can find various informations on the system
  141. ;     (system paths, max number of lines in messages, ...) but it may also
  142. ;     be a way to gather vital informations.
  143. ;     ■ Search for : PCBDAT()
  144. ;
  145. ;------------------------------------------------------------------------------
  146. ;
  147. ; Postprocessing report
  148. ;
  149. ;    0       For/Next
  150. ;    0       While/EndWhile
  151. ;    4       If/Then or If/Then/Else
  152. ;    0       Select Case
  153. ;
  154. ;------------------------------------------------------------------------------
  155. ;                 AEGiS Corp - Break the routines, code against the machines!
  156. ;------------------------------------------------------------------------------
  157.